home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / callwait.arc / CALLWAIT.BAS
Encoding:
BASIC Source File  |  1985-12-26  |  1.9 KB  |  38 lines
  1. 10 'This short program solves the problem of call waiting interrupting
  2. 20 'a communications session. Just run this before your communcations
  3. 21 ' program. It remains in effect until you reset your Hayes Smartmodem
  4. 22 '
  5. 30 COLOR 15,9
  6. 31 CLS:LOCATE 12,18
  7. 32 PRINT CHR$(7);"Setting Hayes Smartmodem 1200 for Call Waiting"
  8. 35 OUT 1020,4:GOSUB 110:OUT 1020,3:GOSUB 110
  9. 40 OPEN "COM1:1200,N,8" AS #1:GOSUB 110
  10. 50 MSG$="ATS10=100"+CHR$(13):GOSUB 100:GOSUB 110
  11. 70 CLOSE
  12. 71 LOCATE 12,1:PRINT SPACE$(80)
  13. 72 LOCATE 12,22:PRINT CHR$(7);"Now Executing ASCOM IV -- Please Wait"
  14. 80 SYSTEM
  15. 100 FOR X=1 TO LEN(MSG$):PRINT #1,MID$(MSG$,X,1);:NEXT
  16. 110 FOR X=1 TO 1500:NEXT
  17. 120 RETURN
  18. 125 '
  19. 130 ' Line 35: Port 1020 (3FC) is the MCR (Modem Control Register). The
  20. 131 '          bits are described on page 6-9 of the Hayes Smartmodem
  21. 132 '          1200 manual. First CALLWAIT sends a 4, which enables the
  22. 133 '          interrupt line drivers, and allows the UART to interrupt
  23. 134 '          the controller. If there are any problems with the serial
  24. 135 '          port, this command should generate some kind of error.
  25. 136 '          OUT 1020,3 will reset the modem and is equivalent to
  26. 137 '          power off/power on. This must be held for at least 50 ms.
  27. 138 '          This is done using the timing loop at line 110.
  28. 139 '
  29. 140 ' Line 40: Open the COM1 port for 1200 baud, no parity and 8 bit words
  30. 141 '          using buffer #1.
  31. 142 '
  32. 143 ' Line 50: Sends a command to the modem. The AT is the ATtention code,
  33. 144 '          which must precede all modem commands. The S10=100 is
  34. 145 '          described on page 6-7 of the manual. It allows the carrier
  35. 146 '          signal to momentarily disappear. The S10=100 sets the time
  36. 147 '          interval for which the carrier may be lost. This interval
  37. 148 '          is adjustable in tenths of a second.
  38.